home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 10 / Big_Mouth_The_10_1996_-_Side_B.d64 / hurkle (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  110 lines
  1. 1 rem"originated by stephen lee"
  2. 5 poke 53280,5:poke 53281,11
  3. 10 print"[147][155]"tab(16)"hurkle."
  4. 20 print""tab(13)"copyright 1979"
  5. 30 printtab(12)"hanimex pty ltd."
  6. 40 a=rnd(-ti)
  7. 50 forq=1to2000:next
  8. 110 n=5
  9. 120 g=10
  10. 210 print"[147]"
  11. 220 print"a hurkle is hiding on a"g"by"g"grid.
  12. 230 [153]"homebase on the grid is point 0,0"
  13. 240 [153]"any gridpoint is defined as x,y"
  14. 250 [153]:[153]"you get "n"tries to guess the grid point where the hurkle is hiding"
  15. 265 [153]:[153]"i will tell you the approx position"
  16. 270 [153]"to go look for the hurkle, after each   try."
  17. 275 [153]:[153]:[153]
  18. 280 [153]"press any key when ready to start."
  19. 281 [161]y$:[139]y$[178]""[137]281
  20. 282 [137]1000
  21. 285 r[178][187](1)
  22. 286 a[178][181](g[172]r)
  23. 287 r[178][187](1)
  24. 300 b[178][181](g[172]r)
  25. 310 [129] k[178]1 [164] n
  26. 320 [153]"guess #";k;"wait";
  27. 330 [161]y$:[139]y$[178]""[137]330
  28. 332 x[178][197](y$)
  29. 335 [153]x;",";
  30. 336 [161]y$:[139]y$[178]""[137]336
  31. 337 y[178][197](y$)
  32. 339 [153]y
  33. 340 [139] [182](x[171]a)[170][182](y[171]b)[178]0 [167] 500
  34. 350 [137] 1100
  35. 360 [141] 610
  36. 380 [130] k
  37. 410 [143]
  38. 420 [153]"        sorry, that's";n;"guesses."
  39. 430 [153]"        the hurkle is at";a;",";b
  40. 440 [143]
  41. 450 [137] 524
  42. 460 [153]
  43. 470 [137] 285
  44. 500 [143]
  45. 510 [153]
  46. 520 [153]"you found him in ";k;"guesses!"
  47. 524 [153]"do you want another go (y or n)"
  48. 525 [161]z$:[139]z$[178]"y"[167] 1000
  49. 526 [139] z$[179][177]"n"[167] 525
  50. 528 [129]t[178]1 [164] 500:[130]:[147]"the main menu/bm",8,1
  51. 530 [129] i[178]1 [164] 10:[153][199](7):[130] i:[153]
  52. 540 [137] 440
  53. 610 [153][163]25)"go  ";
  54. 620 [139] y[178]b [167] 670
  55. 630 [139] y[179]b [167] 660
  56. 640 [153]"south";
  57. 650 [137] 670
  58. 660 [153]"north";
  59. 670 [139] x[178]a [167] 720
  60. 680 [139] x[179]a[167] 710
  61. 690 [153]"west";
  62. 700 [137] 720
  63. 710 [153]"east";
  64. 720 [153]
  65. 730 [142]
  66. 1000 [153]"load     find the hurkle......"
  67. 1010 [153]"9 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn"
  68. 1011 [153]"8 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn"
  69. 1012 [153]"7 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn"
  70. 1013 [153]"6 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn     north"
  71. 1014 [153]"5 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn"
  72. 1015 [153]"4 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn  west  +  east"
  73. 1016 [153]"3 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn"
  74. 1017 [153]"2 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn     south"
  75. 1020 [153]"1 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn"
  76. 1021 [153]"0 (NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab((NULL)tab(fn"
  77. 1022 [153]"  tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  78. 1023 [153]"   0 1 2 3 4 5 6 7 8 9"
  79. 1024 [153]
  80. 1030 [137] 285
  81. 1100 [153]""
  82. 1110 [139] y[178]9 [167] [153]"":[137] 1150
  83. 1111 [139] y[178]8 [167] [153]"":[137] 1150
  84. 1112 [139] y[178]7 [167] [153]"":[137] 1150
  85. 1113 [139] y[178]6 [167] [153]"":[137] 1150
  86. 1114 [139] y[178]5 [167] [153]"":[137] 1150
  87. 1115 [139] y[178]4 [167] [153]"":[137] 1150
  88. 1116 [139] y[178]3 [167] [153]"":[137] 1150
  89. 1117 [139] y[178]2 [167] [153]"":[137] 1150
  90. 1118 [139] y[178]1 [167] [153]"":[137] 1150
  91. 1120 [153]""
  92. 1150 [139] x[178]0 [137] 1200
  93. 1151 [139] x[178]1 [167] [153]"";:[137] 1200
  94. 1152 [139] x[178]2 [167] [153]"";:[137] 1200
  95. 1153 [139] x[178]3 [167] [153]"";:[137] 1200
  96. 1154 [139] x[178]4 [167] [153]"";:[137] 1200
  97. 1155 [139] x[178]5 [167] [153]"";:[137] 1200
  98. 1156 [139] x[178]6 [167] [153]"";:[137] 1200
  99. 1157 [139] x[178]7 [167] [153]"";:[137] 1200
  100. 1158 [139] x[178]8 [167] [153]"";:[137]1200
  101. 1159 [153]"";
  102. 1200 [153]"spc(spc("
  103. 1212 [153]""
  104. 1220 [139] k[178]2 [167][153]"on":[137] 360
  105. 1221 [139] k[178]3 [167] [153]"":[137] 360
  106. 1222 [139] k[178]4 [167] [153]"":[137] 360
  107. 1223 [139] k[178]5 [167] [153]"":[137] 360
  108. 1250 [137] 360
  109. 2000 [128]
  110.